From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Feb 1994 04:25:48 +0000 (+0000)
Subject: (rmail-expunge-and-save): Mark summary buffer as unmodified.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93200
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c70658194a9fa51199fc6ee58ff17cc01c69b8e9;p=emacs.git

(rmail-expunge-and-save): Mark summary buffer as unmodified.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 3641f470673..17b87a83c4d 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -634,7 +634,9 @@ Instead, these commands are available:
   "Expunge and save RMAIL file."
   (interactive)
   (rmail-expunge)
-  (save-buffer))
+  (save-buffer)
+  (if (rmail-summary-exists)
+      (rmail-select-summary (set-buffer-modified-p nil))))
 
 (defun rmail-quit ()
   "Quit out of RMAIL."